(message "Der versuchte Patch für die Hilfsdatei war nicht erfolgreich, (evtl. unkorrekte Version). Die aktuelle Hilfsdatei wurde nicht geändert.\n\nBitte kontaktieren Sie die Schatztruhe GmbH oder GPSoftware für Informationen, wie Sie eine korrekte Hilfsdatei erhalten\n")
(abort "Der versuchte Patch für die Datei \n" OLDFILE "\n war nicht erfolgreich, (evtl. unkorrekte Version). Bitte stellen Sie sicher, daß Sie eine Originalversion von Directory Opus 5 oder 5.1 installiert haben")
)
)
)
(delete PATCHFILE (safe))
)
;
; main
;
(welcome "Directory Opus 5.11 Update")
(set HELPFILE 0)
;
; assign the patch to wherever we are disk or ram: etc
;
(makeassign "Dopus511Update" "" (safe))
;
;get our assignments
;
(set DOPdest (getassign "dopus5" "a"))
(set @default-dest DOPdest)
(makeassign "OLDOPUS" DOPdest)
(if (<> (exists "OLDOPUS:DirectoryOpus") 1)
(abort "Directory Opus befindet sich nicht im Verzeichnis Dopus5: . Sie müssen Directory Opus 5.0 oder 5.1 korrekt installiert haben, bevor Sie diesen Update-Patch anwenden können.")
)
;
;Check versions installed
;
(working "Überprüfe Version des aktuellen Directory Opus...")
(run "version >env:dopvers5 OLDOPUS:DirectoryOpus full ")
(set DOPVER (substr (getenv "dopvers5") 15 3))
(if (= "5.0" DOPVER)
(set VER 0)
(
(if (= "5.1" DOPVER)
(set VER 1)
(abort "Sie haben nicht die korrekte Version "VER" von DirectoryOpus auf Ihrer Festplatte installiert. Sie müssen Version 5.0 oder 5.1 installiert haben, um diesen Patch nutzen zu können.")
)
)
)
;
;copy parts required to ram:
;
(makedir "ram:updop")
(makedir "ram:updop/new")
(makeassign "DOPTMP" "ram:updop" (safe))
(makeassign "DOPNEW" "DOPTMP:new" (safe))
(copyfiles
(source "dopus511Update:")
(dest "DOPTMP:")
(pattern "(lhex|spatch)")
(nogauge)
(files)
)
;
; which set of patch files ?
;
(if (= VER 1) (set PCH "pch51.lha")
(set PCH "pch50.lha")
)
(message"\nSie haben Directory Opus Version 5."VER" installiert. \n\n"
"\nDas Update von Directory Opus 5 und den dazugehörigen Dateien und Bibliotheken auf Version 5.11 kann durchgeführt werden.\n\n"
"Dies wird einige Minuten dauern.\n"
"Wünschen Sie, dieses Update durchzuführen?")
(working "Entpacke Archive für den Patch \n Directory Opus version 5."VER"\n\n Bitte warten...\n")
(run "DOPTMP:lhex >NIL: <NIL: -qfw=DOPTMP: x dopus511Update:dopus_pch.lha " PCH)
(run "DOPTMP:lhex >NIL: <NIL: -qfw=DOPNEW: x " (cat "DOPTMP:" PCH))
(delete (cat "DOPTMP:" PCH))
;
;Thunderbirds are go!
;
(set FILE "DirectoryOpus") (patch)
(set FILE "c/DOpusRT5") (patch)
(set FILE "c/LoadDB") (patch)
(set FILE "libs/dopus5.library") (patch)
(set FILE "modules/about.module") (patch)
(set FILE "modules/configopus.module") (patch)
(set FILE "modules/diskcopy.module") (patch)
(set FILE "modules/diskinfo.module") (patch)
(set FILE "modules/format.module") (patch)
(set FILE "modules/icon.module") (patch)
(set FILE "modules/listerformat.module") (patch)
(set FILE "modules/play.module") (patch)
(set FILE "modules/print.module") (patch)
(set FILE "modules/read.module") (patch)
(set FILE "modules/show.module") (patch)
;
; finally update the REAL Opus directory with the newly patched files
;
(working "Die Dateien Ihres originalen Directory Opus Verzeichnis werden jetzt durch die neuen Dateien ersetzt..\n")
(copyfiles
(source "DOPNEW:")
(dest "OLDOPUS:modules")
(pattern "register.module")
(nogauge)
(files)
)
(delete "DOPNEW:register.module")
(copyfiles
(source "DOPNEW:")
(dest "OLDOPUS:")
(optional force)
(all)
)
;
; check if user had Opus as WB replacement
;
(run "version >env:dopldb c:loadwb full")
(set DOPVER1 (substr (getenv "dopldb") 0 6))
(if (= "LoadDB" DOPVER1)
(copyfiles
(source "DOPNEW:c/LoadDB")
(dest "C:")
(newname "LoadWB")
(optional force)
)
)
;
;Install the Readme file
;
(run "DOPTMP:lhex >NIL: <NIL: -qfw=OLDOPUS: x dopus511Update:dopus_pch.lha ReadMe.511")
(if (askbool
(prompt"\nWünschen Sie die Installation der extra ARexx Skripte, die von "
"Opus 5 Benutzern zur Verfügung gestellt wurden?\n\n"
"Schauen Sie bitte in die aktuellen Skriptdateien für weitere Details zur Installation und Benutzung.\n")
(help "none")
)
(
(run "DOPTMP:lhex >NIL: <NIL: -qfw=DOPTMP: x dopus511Update:dopus_pch.lha ARexx.lha")
(run "DOPTMP:lhex >NIL: <NIL: -qfw=DOPTMP: x DOPTMP:ARexx.lha")
(copyfiles
(prompt "Bitte wählen Sie die Skripte, die Sie ins Verzeichnis Dopus5:Arexx kopiert haben wollen\n")
(help @copyfiles-help)
(source "DOPTMP:Arexx")
(dest "OLDOPUS:Arexx")
(confirm)
(all)
)
(run "delete DOPTMP:Arexx all quiet")
)
)
(if (askbool
(prompt"\nWünschen Sie die Installation des ARexx LhADir Archivs in Ihr Opus5 Verzeichnis?\n\n"
"Das LhADir Archiv wurde von Edmund Vermeulen entwickelt.\n Es erlaubt Ihnen den einfachen Umgang mit LHA und LZH Dateien durch Directory Opus 5\n")
(help "none")
)
(
(run "DOPTMP:lhex >NIL: <NIL: -qfw=OLDOPUS: x dopus511Update:LhADirOpus5V10.lha")
(message "\nLhADir wurde entpackt ins aktuelle Dopus5: Verzeichnis.\n"
"\nNach Beendigung der Opus 5.11 Installation, öffnen Sie "
"bitte das Verzeichnis dopus5:LhADir und doppelklicken Sie "
"'Install LhADir', um die Installation von LhADir zu vervollständigen\n")
(message "\nFertig!\n\nDirectory Opus liegt nun in Version 5.11 vor.\nSie sollten Ihren Amiga nun neustarten und Directory Opus erneut registrieren, um die Installation zu vervollständigen.")
